(strip driver-strip
    (set frames 6)
    //(set loc [3 10 3 133 3 256 3 379 3 502 3 625])
    //(set size [555 122])
    (set loc [84 10 84 133 84 256 84 379 84 502 84 625])
    (set size [119 122])
    (set seq [0 1 2 3 4 5])
    (set ticks[3])
    (set image "drive.gif")
)
(strip road-strip
    (set frames 3)
    (set loc [240 10 240 133 240 256 240 379 240 502 240 625])
    (set size [318 122])
    (set seq [0 1 2])
    (set ticks[2])
    (set image "drive.gif")
)
(strip hair-strip
    (set frames 3)
    (set loc [45 10 45 133 45 256 45 379 45 502 45 625])
    (set size [20 30])
    (set seq [0 1 2 1 2 1 2 1 2 1])
    (set ticks[8 3])
    (set image "drive.gif")
)
(strip software-strip
    (set frames 7)
    (set loc [146 232 146 310 146 388 146 466 146 544 303 100 303 178])
    (set size [130 76])
    (set seq [-1 1 2 3 4 5 6 5 4 3 2 1])
    (set ticks[4])
    (set image "bigbutt.gif")
)
(strip hardware-strip
    (set frames 7)
    (set loc [1 147 1 231 0 315 1 399 1 483 1 567 146 147])
    (set size [142 83])
    (set seq [-1 1 2 3 4 5 6 5 4 3 2 1])
    (set ticks[4])
    (set image "bigbutt.gif")
)
(strip services-strip
    (set frames 7)
    (set loc [293 255 293 336 293 417 293 498 293 579 434 99 434 180])
    (set size [139 79])
    (set seq [-1 1 2 3 4 5 6 5 4 3 2 1])
    (set ticks[4])
    (set image "bigbutt.gif")
)
(strip comprod-strip
    (set frames 5)
    (set loc [434 261 434 367 434 473 434 579 146 621])
    (set size [130 104])
    (set seq [-1 1 2 3 4])
    (set ticks[4])
    (set image "bigbutt.gif")
)
(strip catalog-strip
    (set frame 2)
    (set loc [49 99])
    (set size [50 48])
    (set seq [-1 0])
    (set image "bigbutt.gif")
)
(strip products-strip
    (set frame 2)
    (set loc [149 99])
    (set size [50 48])
    (set seq [-1 0])
    (set image "bigbutt.gif")
)
(strip info-strip
    (set frame 2)
    (set loc [250 99])
    (set size [50 48])
    (set seq [-1 0])
    (set image "bigbutt.gif")
)

///////////////////////////////////////////////////////////////////////
// ACTORS
///////////////////////////////////////////////////////////////////////

(actor background
    (on init
        (set ticker-delay 30)
        (set debug 0)
    )
)
(actor driver
    (on init
        (set visible 2)
        (set strip "driver-strip")
        //(set loc [21 201])
        (set loc [102 201])
        (set timer -150)
        (set run -8)
    )
    (on timer
//minus stop on last frame
        (set run -8)
        (set timer -150)
    )
    (on movein
        (set road.ticks [1])
        (set ticks [1])
        (set timer 0)
        (set run 1)
    )
    (on moveout
        (set road.ticks [2])
        (set ticks[3])
        (set timer -150)
        (set run 0)
    )
)
(actor road
    (on init
        (set visible 2)
        (set strip "road-strip")
        (set loc [258 201])
        (set run 1)
        (set forward 1)
    )
    (on down
        (if forward 1
            (set forward 0)
         else
            (set forward 1)
        )
    )
)
(actor hair
    (on init
        (set visible 2)
        (set strip "hair-strip")
        (set loc [63 201])
        (set run 1)
    )
)
(actor software
    (on init
        (set strip "software-strip")
        (set loc [80 123])
        (set timer 100)
    )
    (on timer
        (set visible -1)    // forces preload gif
    )
    (on movein
        (set run 1)
	(set loop-sound -1)
        (set sound "software.au")
    )
    (on moveout
        (set stop-at 0)
    )
    (on down
        (set url "http://localhost:7999/.categories/?DEST=Software")
    )
)
(actor hardware
    (on init
        (set strip "hardware-strip")
        (set loc [225 96])
        (set loop-sound 1)
    )
    (on movein
        (set run 1)
	(set loop-sound -1)
        (set sound "hardware.au")
    )
    (on moveout
        (set stop-at 0)
    )
    (on down
        (set url "http://localhost:7999/.categories/?DEST=Hardware")
    )
)
(actor services
    (on init
        (set strip "services-strip")
        (set loc [385 82])
        (set loop-sound 1)
    )
    (on movein
        (set run 1)
	(set loop-sound -1)
        (set sound "services.au")
    )
    (on moveout
        (set stop-at 0)
    )
    (on down
        (set url "http://localhost:7999/.categories/?DEST=Services")
    )
)
(actor comprod
    (on init
        (set strip "comprod-strip")
        (set loc [0 310])
        (set loop-sound 1)
	(set timer -200)
	(set run 0)
    )
    (on timer
	(if run 1
            (set loop-sound 1)  // no-op
	 else 
	    (set ticks [1])
            (set stop-at 0)
        )
	(set timer -200)
    )
    (on movein
	(set ticks [4])
        (set run 1)
	(set loop-sound -1)
        (set sound "compprod.au")
    )
    (on moveout
        (set stop-at 0)
    )
    (on down
        (set url "http://localhost:7999/.categories/?DEST=companies")
    )
)
(actor prod
    (on init
        (set loc [4 365])
        (set size [111 49])
    )
    (on movein
        (set comprod.run 1)
	(set loop-sound -1)
        (set comprod.sound "compprod.au")
    )
    (on moveout
        (set comprod.stop-at 0)
    )
    (on down
        (set url "http://localhost:7999/.categories/?DEST=products")
    )
)
(actor catalog
    (on init
        (set strip "catalog-strip")
        (set loc [236 338])
    )
    (on movein
	(set loop-sound -1)
        (set sound "cat.au")
    )
    (on moveout
    )
    (on down
        (set seqnum 1)
    )
    (on dragout
        (set seqnum 0)
    )
    (on dragin
        (set seqnum 1)
    )
    (on up
        (set seqnum 0)
        (set url "file:///tmp/httpd/.products/.wais/Catalog")
    )
    (on upout
    )
)
(actor products
    (on init
        (set strip "products-strip")
        (set loc [314 338])
    )
    (on movein
	(set loop-sound -1)
        (set sound "sunprod.au")
    )
    (on moveout
    )
    (on down
        (set seqnum 1)
    )
    (on dragout
        (set seqnum 0)
    )
    (on dragin
        (set seqnum 1)
    )
    (on up
        (set seqnum 0)
        (set url "http://localhost:7999/.categories/?DEST=Sun")
    )
    (on upout
    )
)
(actor info
    (on init
        (set strip "info-strip")
        (set loc [394 338])
    )
    (on movein
	(set loop-sound -1)
        (set sound "info.au")
    )
    (on moveout
    )
    (on down
        (set seqnum 1)
    )
    (on dragout
        (set seqnum 0)
    )
    (on dragin
        (set seqnum 1)
    )
    (on up
        (set seqnum 0)
        (set url "file:///tmp/httpd/.products/CDware/docs/info/Info")
    )
    (on upout
    )
)